1000
It is possible to clip the bar's caption to bar, when the time scale is changed

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/27/2000");
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "Pattern", 32);
		_ObjectSetProperty( bar , "Height", 13);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K1","This is a bit of text that get's clipped");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,4) = 4");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,6) = ItemBar(h,`K1`,3)");
	h = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K1","This is a bit of text that is not clipped");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,4) = 1");

999
How can I change the color for all bars with the key matching a pattern

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 64");
_ObjectSetProperty( g2antt , "Debug", -1);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","B1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/17/2001","B2");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","B4");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<B*>`,33) = 255");

998
How can I change the color for all bars in the same item with the key matching a pattern

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 64");
_ObjectSetProperty( g2antt , "Debug", -1);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","B1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/17/2001","B2");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`<B*>`,33) = 255");

997
How can I change the color for all bars in the same item

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","K2");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`<*>`,33) = 255");

996
How can I write a special number for each date related to a bar

OBJECT chart,g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 32");
	_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/13/2001","1");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "N1",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", "S+2");
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `4`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 18");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(0) = -9");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBackColor(0) = 65535");
		_ObjectSetProperty( note , "ShowLink", 0);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(0) = True");
	note = _ObjectCallMethod( notes , "Add", "N2",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", "S+3");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `4`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 18");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(0) = -9");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBackColor(0) = 65535");
		_ObjectSetProperty( note , "ShowLink", 0);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(0) = True");
	note = _ObjectCallMethod( notes , "Add", "N3",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", "S+4");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `5`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 18");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(0) = -9");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBackColor(0) = 65280");
		_ObjectSetProperty( note , "ShowLink", 0);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(0) = True");
	note = _ObjectCallMethod( notes , "Add", "N4",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", "S+5");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `5`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 18");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(0) = -9");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBackColor(0) = 65280");
		_ObjectSetProperty( note , "ShowLink", 0);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(0) = True");
	note = _ObjectCallMethod( notes , "Add", "N5",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", "S+6");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `8`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 18");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(0) = -9");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBackColor(0) = 255");
		_ObjectSetProperty( note , "ShowLink", 0);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(0) = True");
	note = _ObjectCallMethod( notes , "Add", "Z",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", "E");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `4`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 18");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(0) = -9");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBackColor(0) = 33023");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartCanMove(0) = True");
		_ObjectSetProperty( note , "ShowLink", 0);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(0) = True");
_ObjectCallMethod( g2antt , "EndUpdate");

995
How can I assign a note to be always in the center of the bar

OBJECT g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","1");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "Note",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", 0.5);
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `note<br>center`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBackColor(0) = 65535");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(1) = False");
		_ObjectSetProperty( note , "ShowLink", 0);
_ObjectCallMethod( g2antt , "EndUpdate");

994
How can I assign a note relative to the start of the bar, and let it be movable

OBJECT g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","1");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "Note",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", "S+1");
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `<%d%>`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 18");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(0) = 9");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartCanMove(0) = True");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBackColor(0) = 65535");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(1) = False");
		_ObjectSetProperty( note , "ShowLink", 0);
_ObjectCallMethod( g2antt , "EndUpdate");

993
How can I associate a note relative to the start of the bar

OBJECT g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","1");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "Note",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", "S+1");
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `<%d%>`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 18");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(0) = 9");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBackColor(0) = 65535");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(1) = False");
		_ObjectSetProperty( note , "ShowLink", 0);
_ObjectCallMethod( g2antt , "EndUpdate");

992
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly

OBJECT g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","1");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "Note",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", "E-1");
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `<%d%>`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 18");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(0) = 9");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(1) = False");
		_ObjectSetProperty( note , "ShowLink", 0);
_ObjectCallMethod( g2antt , "EndUpdate");

991
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly

OBJECT g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","1");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "Note",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", 1);
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `End`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(1) = False");
		_ObjectSetProperty( note , "ShowLink", 0);
_ObjectCallMethod( g2antt , "EndUpdate");

990
How can I hide a bar without removing it
OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
	_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001","B1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/6/2001","1/14/2001","B2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod( items , "AddLink", "L1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FindItem(`Item 1`,0)"),"B1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FindItem(`Item 2`,0)"),"B2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(FirstVisibleItem,FirstItemBar(FirstVisibleItem),19) = 100");
_ObjectCallMethod( g2antt , "EndUpdate");

989
How can I align the caption in the note

OBJECT g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","1");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "N1",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "ShowLink", 0);
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(1) = False");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `S <b><%dd%></b>`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 48");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartAlignment(0) = 0");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVOffset(0) = 17");
	note = _ObjectCallMethod( notes , "Add", "N2",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","");
		_ObjectSetProperty( note , "RelativePosition", 1);
		_ObjectSetProperty( note , "ShowLink", 0);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(1) = False");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `E <b><%dd%></b>`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartFixedWidth(0) = 48");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartAlignment(0) = 2");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVOffset(0) = 17");
_ObjectCallMethod( g2antt , "EndUpdate");

988
How I can assign a note and let user move the note relative to the bar

OBJECT g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","1");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "Note",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","End");
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `Day<br> <%dd%>`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartCanMove(0) = True");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVOffset(0) = 16");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartTransparency(0) = 30");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartToolTip(0) = `Click the note and start moving to a new position.`");
_ObjectCallMethod( g2antt , "EndUpdate");

987
How can I assign a picture as a note associated with a bar

OBJECT g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`");
_ObjectSetProperty( g2antt , "AntiAliasing", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","1");
	h = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/7/2001","1/11/2001","2");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "1",_ObjectCallMethod(g2antt, "ExecuteTemplate", ".Items.ItemByIndex(0)"),"1","<img>pic1</img>");
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartShadow(1) = False");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBorderSize(1) = 0");
		_ObjectCallMethod( note , "ClearPartBackColor", 1);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(1) = -64");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartCanMove(1) = True");
	note = _ObjectCallMethod( notes , "Add", "2",_ObjectCallMethod(g2antt, "ExecuteTemplate", ".Items.ItemByIndex(1)"),"2","<img>pic2</img>");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartShadow(1) = False");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBorderSize(1) = 0");
		_ObjectCallMethod( note , "ClearPartBackColor", 1);
		_ObjectSetProperty( note , "RelativePosition", 1);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartCanMove(1) = True");
		_ObjectSetProperty( note , "LinkColor", 255);
		_ObjectSetProperty( note , "LinkWidth", 2);
		_ObjectSetProperty( note , "LinkStyle", 2);
		_ObjectSetProperty( note , "ShowLink", 1);
_ObjectCallMethod( g2antt , "EndUpdate");

986
How can I assign a picture as a note associated with a bar

OBJECT g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectSetProperty( g2antt , "AntiAliasing", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","1");
	h = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/7/2001","1/11/2001","2");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "1",_ObjectCallMethod(g2antt, "ExecuteTemplate", ".Items.ItemByIndex(0)"),"1","<img>1</img>");
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartShadow(1) = False");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBorderSize(1) = 0");
		_ObjectCallMethod( note , "ClearPartBackColor", 1);
	note = _ObjectCallMethod( notes , "Add", "2",_ObjectCallMethod(g2antt, "ExecuteTemplate", ".Items.ItemByIndex(1)"),"2","<img>2</img>...<img>3</img>");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartShadow(1) = False");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartBorderSize(1) = 0");
		_ObjectCallMethod( note , "ClearPartBackColor", 1);
		_ObjectSetProperty( note , "RelativePosition", 1);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartCanMove(1) = True");
		_ObjectSetProperty( note , "LinkColor", 255);
		_ObjectSetProperty( note , "LinkWidth", 2);
		_ObjectSetProperty( note , "LinkStyle", 2);
_ObjectCallMethod( g2antt , "EndUpdate");

985
How can I put a box assigned to a DATE

OBJECT g2antt,items,note,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Item 1");
	h = _ObjectCallMethod( items , "AddItem", "Item 2");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	note = _ObjectCallMethod( notes , "Add", "D1",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),_ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate"),"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>");
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim notObj")
		_ObjectCallMethod(g2antt, "TemplatePut", note)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartCanMove(1) = True");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVOffset(1) = 20");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(1) = 20");
	note = _ObjectCallMethod( notes , "Add", "D2",_ObjectCallMethod(g2antt, "ExecuteTemplate", ".Items.NextVisibleItem(Me.Items.FirstVisibleItem)"),"1/7/2001","Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVisible(0) = True");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartText(0) = `<b><%d%></b>`");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartCanMove(1) = True");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartVOffset(1) = 20");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "notObj.PartHOffset(1) = 20");
_ObjectCallMethod( g2antt , "EndUpdate");

984
How can I add a note or a box associated with a bar

OBJECT g2antt,items,notes;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","1","Center");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`1`,44) = `left`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`1`,45) = 16");
	h = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/7/2001","1/11/2001","2","Center");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`2`,44) = `right`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`2`,45) = 18");
notes = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Notes");
	_ObjectCallMethod( notes , "Add", "1S",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","Start");
	_ObjectSetProperty( _ObjectCallMethod( notes , "Add", "1F",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FirstVisibleItem"),"1","End") , "RelativePosition", 1);
_ObjectCallMethod( g2antt , "EndUpdate");

983
Is it possible to define different working hours for every week day

OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 14");
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectSetProperty( chart , "NonworkingHours", 0);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Alignment", 1);
		_ObjectSetProperty( level , "Label", "<%dddd%>");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", "<%hh%>");
		_ObjectSetProperty( level , "Count", 6);
	_ObjectSetProperty( chart , "UnitWidth", 16);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", 1);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) != 1 or (weekday(value) = 1 and not ( hour(value) >= 9 and hour(value) <= 14 ))`");
	h = _ObjectCallMethod( items , "AddItem", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) = 2 and ( hour(value) >= 9 and hour(value) <= 14 )`");
	h = _ObjectCallMethod( items , "AddItem", 3);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) = 3`");
_ObjectCallMethod( g2antt , "EndUpdate");

982
How can I automatically update the exBarPercent value using a slider control

OBJECT chart,column,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2002");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task%Progress") , "Shortcut", "Percent");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Percent");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
	_ObjectCallMethod(g2antt, "TemplatePut", column)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 518");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `P`");
items = _ObjectGetProperty( g2antt , "Items");
	i = _ObjectCallMethod( items , "AddItem", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,i")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", i)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellBold(i,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(i,0).EditType = 20");
	_ObjectCallMethod( items , "AddBar", i,"Percent","1/2/2002","1/6/2002","P");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(i,`P`,14) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(i,0) = 50");
_ObjectCallMethod( g2antt , "EndUpdate");

981
Is there any automatic way to change a property for all bars in the chart
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,33) = 255");

980
How can I assign an icon to a bar and I get notified when I click it

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/10/2001","","Caption");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,44) = `<a1><img>1:8</img></a><a1><img>2</img></a>`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,45) = 16");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,47) = 5");
_ObjectCallMethod( g2antt , "EndUpdate");

979
How can I assign an icon to a bar so I do not break its caption

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/10/2001","","Caption");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,44) = `<img>1</img>`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,45) = 16");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,47) = 5");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,48) = 2");
_ObjectCallMethod( g2antt , "EndUpdate");

978
How can I assign multiple lables to the same bar

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/5/2001","1/7/2001","","Right");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,4) = 18");
	_ObjectCallMethod( items , "AddBar", h1,"","1/5/2001","1/5/2001","T1","Left");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`T1`,4) = 16");
	_ObjectCallMethod( items , "AddBar", h1,"","1/5/2001","1/7/2001","T2","Center");
	_ObjectCallMethod( items , "GroupBars", h1,"",-1,h1,"T1",-1);
	_ObjectCallMethod( items , "GroupBars", h1,"",-1,h1,"T1",0);
	_ObjectCallMethod( items , "GroupBars", h1,"",-1,h1,"T2",-1);
	_ObjectCallMethod( items , "GroupBars", h1,"",0,h1,"T2",0);
_ObjectCallMethod( g2antt , "EndUpdate");

977
Is there any way to have more Captions on a bar than one

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/5/2001","1/7/2001","","Right");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,4) = 18");
	_ObjectCallMethod( items , "AddBar", h1,"","1/5/2001","1/5/2001","T1","Left");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`T1`,4) = 16");
	_ObjectCallMethod( items , "GroupBars", h1,"",-1,h1,"T1",-1);
	_ObjectCallMethod( items , "GroupBars", h1,"",-1,h1,"T1",0);
_ObjectCallMethod( g2antt , "EndUpdate");

976
How can I assign multiple lables to the same bar at once

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/8/2001","","Center");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,44) = `left`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,45) = 16");
	h = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/7/2001","1/11/2001","","Center");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,44) = `right`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,45) = 18");
_ObjectCallMethod( g2antt , "EndUpdate");

975
How can I limit the duration or length of the bar
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.ScrollRange(0) = #1/1/2001#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.ScrollRange(1) = #1/7/2001#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(0) = 128");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Item 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,36) = 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,37) = 5");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,3) = `Min=2 / Max=5`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,4) = 18");
_ObjectCallMethod( g2antt , "EndUpdate");

974
I have an EBN file how can I apply different colors to it, so no need to create a new one

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectSetProperty( g2antt , "SelBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "SelForeColor", _ObjectGetProperty( g2antt , "ForeColor"));
_ObjectSetProperty( g2antt , "HasLines", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Root");
	hC = _ObjectCallMethod( items , "InsertItem", h,"","Default");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hC")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", hC)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 16777216");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(InsertItem(h,,``)) = 6");
	hC = _ObjectCallMethod( items , "InsertItem", h,"","Light Green");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hC")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", hC)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 16842496");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(hC) = 16842496");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(InsertItem(h,,``)) = 6");
	hC = _ObjectCallMethod( items , "InsertItem", h,"","Dark Green");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hC")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", hC)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 16809728");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(InsertItem(h,,``)) = 6");
	hC = _ObjectCallMethod( items , "InsertItem", h,"","Magenta");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hC")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", hC)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 33521663");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(InsertItem(h,,``)) = 6");
	hC = _ObjectCallMethod( items , "InsertItem", h,"","Yellow");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hC")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", hC)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 25165823");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(InsertItem(h,,``)) = 6");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");

973
I need to specify the non-working hours for about 100 days for each item, but the scrolling is very slow. Is there any option to increase the speed

OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "AllowChartScrollPage", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Non-Work");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "4/4/2009 4:00:00 PM");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 52");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "UnitWidth", 16);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<r><%d%>-<%mmm%>");
		_ObjectSetProperty( level , "Unit", 4096);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", "<%hh%>");
		_ObjectSetProperty( level , "Unit", 65536);
		_ObjectSetProperty( level , "Count", 2);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddItem", "Default");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(AddItem(`Test`),False) = `date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 12; #4/6/2009# : hour(value) >= 6 and hour(value) <= 12; #4/7/2009# : hour(value) >= 6 and hour(value) <= 12; #4/8/2009# : hour(value) >= 6 and hour(value) <= 12; #4/9/2009# : hour(value) >= 6 and hour(value) <= 12; #4/10/2009# : hour(value) >= 6 and hour(value) <= 12; #4/11/2009# : hour(value) >= 6 and hour(value) <= 12; #4/12/2009# : hour(value) >= 6 and hour(value) <= 12; #4/13/2009# : hour(value) >= 6 and hour(value) <= 12; #4/14/2009# : hour(value) >= 6 and hour(value) <= 12; #4/15/2009# : hour(value) >= 6 and hour(value) <= 12; #4/16/2009# : hour(value) >= 6 and hour(value) <= 12; #4/17/2009# : hour(value) >= 6 and hour(value) <= 12; #4/18/2009# : hour(value) >= 6 and hour(value) <= 12; #4/19/2009# : hour(value) >= 6 and hour(value) <= 12; #4/20/2009# : hour(value) >= 6 and hour(value) <= 12; #4/21/2009# : hour(value) >= 6 and hour(value) <= 12; #4/22/2009# : hour(value) >= 6 and hour(value) <= 12; #4/23/2009# : hour(value) >= 6 and hour(value) <= 12; #4/24/2009# : hour(value) >= 6 and hour(value) <= 12; #4/25/2009# : hour(value) >= 6 and hour(value) <= 12; #4/26/2009# : hour(value) >= 6 and hour(value) <= 12; #4/27/2009# : hour(value) >= 6 and hour(value) <= 12; #4/28/2009# : hour(value) >= 6 and hour(value) <= 12; #4/29/2009# : hour(value) >= 6 and hour(value) <= 12; #4/30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/1/2009# : hour(value) >= 6 and hour(value) <= 12; #5/2/2009# : hour(value) >= 6 and hour(value) <= 12; #5/3/2009# : hour(value) >= 6 and hour(value) <= 12; #5/4/2009# : hour(value) >= 6 and hour(value) <= 12; #5/5/2009# : hour(value) >= 6 and hour(value) <= 12; #5/6/2009# : hour(value) >= 6 and hour(value) <= 12; #5/7/2009# : hour(value) >= 6 and hour(value) <= 12; #5/8/2009# : hour(value) >= 6 and hour(value) <= 12; #5/9/2009# : hour(value) >= 6 and hour(value) <= 12; #5/10/2009# : hour(value) >= 6 and hour(value) <= 12; #5/11/2009# : hour(value) >= 6 and hour(value) <= 12; #5/13/2009# : hour(value) >= 6 and hour(value) <= 12; #5/14/2009# : hour(value) >= 6 and hour(value) <= 12; #5/15/2009# : hour(value) >= 6 and hour(value) <= 12; #5/16/2009# : hour(value) >= 6 and hour(value) <= 12; #5/17/2009# : hour(value) >= 6 and hour(value) <= 12; #5/18/2009# : hour(value) >= 6 and hour(value) <= 12; #5/19/2009# : hour(value) >= 6 and hour(value) <= 12; #5/20/2009# : hour(value) >= 6 and hour(value) <= 12; #5/21/2009# : hour(value) >= 6 and hour(value) <= 12; #5/22/2009# : hour(value) >= 6 and hour(value) <= 12; #5/23/2009# : hour(value) >= 6 and hour(value) <= 12; #5/24/2009# : hour(value) >= 6 and hour(value) <= 12; #5/25/2009# : hour(value) >= 6 and hour(value) <= 12; #5/26/2009# : hour(value) >= 6 and hour(value) <= 12; #5/27/2009# : hour(value) >= 6 and hour(value) <= 12; #5/28/2009# : hour(value) >= 6 and hour(value) <= 12; #5/29/2009# : hour(value) >= 6 and hour(value) <= 12; #5/30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/31/2009# : hour(value) >= 6 and hour(value) <= 12; #6/1/2009# : hour(value) >= 6 and hour(value) <= 12; #6/2/2009# : hour(value) >= 6 and hour(value) <= 12; #6/3/2009# : hour(value) >= 6 and hour(value) <= 12; #6/4/2009# : hour(value) >= 6 and hour(value) <= 12; #6/5/2009# : hour(value) >= 6 and hour(value) <= 12; #6/6/2009# : hour(value) >= 6 and hour(value) <= 12; #6/7/2009# : hour(value) >= 6 and hour(value) <= 12; #6/8/2009# : hour(value) >= 6 and hour(value) <= 12; #6/9/2009# : hour(value) >= 6 and hour(value) <= 12; #6/10/2009# : hour(value) >= 6 and hour(value) <= 12; #6/11/2009# : hour(value) >= 6 and hour(value) <= 12; #6/12/2009# : hour(value) >= 6 and hour(value) <= 12; #6/13/2009# : hour(value) >= 6 and hour(value) <= 12; #6/14/2009# : hour(value) >= 6 and hour(value) <= 12; #6/15/2009# : hour(value) >= 6 and hour(value) <= 12; #6/16/2009# : hour(value) >= 6 and hour(value) <= 12; #6/17/2009# : hour(value) >= 6 and hour(value) <= 12; #6/18/2009# : hour(value) >= 6 and hour(value) <= 12; #6/19/2009# : hour(value) >= 6 and hour(value) <= 12; #6/21/2009# : hour(value) >= 6 and hour(value) <= 12; #6/22/2009# : hour(value) >= 6 and hour(value) <= 12; #6/23/2009# : hour(value) >= 6 and hour(value) <= 12; #6/24/2009# : hour(value) >= 6 and hour(value) <= 12; #6/25/2009# : hour(value) >= 6 and hour(value) <= 12; #6/26/2009# : hour(value) >= 6 and hour(value) <= 12; #6/27/2009# : hour(value) >= 6 and hour(value) <= 12; #6/28/2009# : hour(value) >= 6 and hour(value) <= 12; #6/29/2009# : hour(value) >= 6 and hour(value) <= 12; #6/30/2009# : hour(value) >= 6 and hour(value) <= 12; #7/1/2009# : hour(value) >= 6 and hour(value) <= 12; #7/2/2009# : hour(value) >= 6 and hour(value) <= 12; #7/3/2009# : hour(value) >= 6 and hour(value) <= 12; #7/4/2009# : hour(value) >= 6 and hour(value) <= 12; #7/5/2009# : hour(value) >= 6 and hour(value) <= 12; #7/6/2009# : hour(value) >= 6 and hour(value) <= 12; #7/7/2009# : hour(value) >= 6 and hour(value) <= 12; #7/8/2009# : hour(value) >= 6 and hour(value) <= 12; #7/9/2009# : hour(value) >= 6 and hour(value) <= 12; #7/10/2009# : hour(value) >= 6 and hour(value) <= 12; #7/11/2009# : hour(value) >= 6 and hour(value) <= 12; #7/12/2009# : hour(value) >= 6 and hour(value) <= 12; #7/13/2009# : hour(value) >= 6 and hour(value) <= 12; #7/14/2009# : hour(value) >= 6 and hour(value) <= 12)`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(AddItem(`Test`),False) = `date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/31/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21))`");
	_ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod( g2antt , "EndUpdate");

972
How can I use the CASE statement (CASE usage)
OBJECT column,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Value");
	_ObjectSetProperty( column , "Width", 24);
	_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "CASE - statment");
	_ObjectSetProperty( column , "ComputedField", "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourt" +
	"heen')");
	_ObjectSetProperty( column , "ToolTip", _ObjectGetProperty( column , "ComputedField"));
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddItem", 0);
	_ObjectCallMethod( items , "AddItem", 1);
	_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( g2antt , "EndUpdate");

971
How can I use the CASE statement (CASE usage)
OBJECT column,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Value");
	_ObjectSetProperty( column , "Width", 24);
	_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "CASE - statment");
	_ObjectSetProperty( column , "ComputedField", "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen" +
	"';14:'Fourtheen')");
	_ObjectSetProperty( column , "ToolTip", _ObjectGetProperty( column , "ComputedField"));
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddItem", 0);
	_ObjectCallMethod( items , "AddItem", 1);
	_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( g2antt , "EndUpdate");

970
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
OBJECT column,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Value");
	_ObjectSetProperty( column , "Width", 24);
	_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "SWITCH - statment");
	_ObjectSetProperty( column , "ComputedField", "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)");
	_ObjectSetProperty( column , "ToolTip", _ObjectGetProperty( column , "ComputedField"));
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddItem", 0);
	_ObjectCallMethod( items , "AddItem", 1);
	_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( g2antt , "EndUpdate");

969
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
OBJECT column,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Value");
	_ObjectSetProperty( column , "Width", 24);
	_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "IN - statment");
	_ObjectSetProperty( column , "ComputedField", "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''");
	_ObjectSetProperty( column , "ToolTip", _ObjectGetProperty( column , "ComputedField"));
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddItem", 0);
	_ObjectCallMethod( items , "AddItem", 1);
	_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( g2antt , "EndUpdate");

968
How can I automatically update the exBarPercent value using a slider control

OBJECT chart,column,editor,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2002");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task%Progress") , "Shortcut", "Percent");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Percent");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
	_ObjectCallMethod(g2antt, "TemplatePut", column)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 12");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `P`");
items = _ObjectGetProperty( g2antt , "Items");
	i = _ObjectCallMethod( items , "AddItem", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,i")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", i)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellBold(i,0) = True");
	editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(i,0)");
		_ObjectSetProperty( editor , "EditType", 20);
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
		_ObjectCallMethod(g2antt, "TemplatePut", editor)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(42) = 0.01");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(40) = 0.01");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(44) = 1");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(41) = -100");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,i")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", i)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(i,0) = 1");
	_ObjectCallMethod( items , "AddBar", i,"Percent","1/2/2002","1/6/2002","P");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(i,`P`,14) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(i,0) = 0.5");
_ObjectCallMethod( g2antt , "EndUpdate");

967
How can I automatically update the exBarPercent value using a spin control

OBJECT chart,column,editor,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2002");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task%Progress") , "Shortcut", "Percent");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Percent");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
	_ObjectCallMethod(g2antt, "TemplatePut", column)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 12");
	_ObjectSetProperty( column , "FormatColumn", "((0:=round(dbl(%0)*100)) >= 50 ? '<font 8>'+ =:0 + '%</font>' : '<fgcolor=808080><font 6>'+ =:0 + '%</font></fgcolor>')");
items = _ObjectGetProperty( g2antt , "Items");
	i = _ObjectCallMethod( items , "AddItem", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,i")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", i)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellBold(i,0) = True");
	editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(i,0)");
		_ObjectSetProperty( editor , "EditType", 4);
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
		_ObjectCallMethod(g2antt, "TemplatePut", editor)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(40) = 0.01");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(44) = 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,i")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", i)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(i,0) = 1");
	_ObjectCallMethod( items , "AddBar", i,"Percent","1/2/2002","1/6/2002");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(i,0) = 0.5");
_ObjectCallMethod( g2antt , "EndUpdate");

966
How do I specify for an item all units as being non-working units

OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "AllowChartScrollPage", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Non-Work");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "AllowCreateBar", 1);
	_ObjectSetProperty( chart , "FirstVisibleDate", "4/3/2009 10:00:00 AM");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "UnitWidth", 16);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<r><%d%>-<%mmm%>");
		_ObjectSetProperty( level , "Unit", 4096);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", "<%hh%>");
		_ObjectSetProperty( level , "Unit", 65536);
		_ObjectSetProperty( level , "Count", 2);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddItem", "Default");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(AddItem(`All-Non-Working`),False) = `1`");
	_ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod( g2antt , "EndUpdate");

965
How do I specify for an item all units as being working units

OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "AllowChartScrollPage", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Non-Work");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "AllowCreateBar", 1);
	_ObjectSetProperty( chart , "FirstVisibleDate", "4/3/2009 10:00:00 AM");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "UnitWidth", 16);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<r><%d%>-<%mmm%>");
		_ObjectSetProperty( level , "Unit", 4096);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", "<%hh%>");
		_ObjectSetProperty( level , "Unit", 65536);
		_ObjectSetProperty( level , "Count", 2);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddItem", "Default");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(AddItem(`All-Working`),False) = `0`");
	_ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod( g2antt , "EndUpdate");

964
How can I programmatically specify different non-working units ( days, hours ) for different items

OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "AllowChartScrollPage", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Non-Work");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "AllowCreateBar", 1);
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "FirstVisibleDate", "7/13/2009 12:00:00 PM");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 52");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "UnitWidth", 16);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<r><b><%d%></b> <%mmm%> <%yyyy%>");
		_ObjectSetProperty( level , "Unit", 4096);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", "<%hh%>");
		_ObjectSetProperty( level , "Unit", 65536);
		_ObjectSetProperty( level , "Count", 2);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Item 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `(shortdate(value) = #7/14/2009# and hour(value) >= 6 and hour(value) <= 12)`");
	_ObjectCallMethod( items , "AddBar", h,"Task","7/14/2009 4:00:00 AM","7/14/2009 2:00:00 PM");
	h = _ObjectCallMethod( items , "AddItem", "Item 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `(((hour(value) >= 4 and hour(value) <= 16) or hour(value) = 2) and month(value) = 7) or ((hour(value) >= 2 and hour(value) < 10)) and month(value) = 6 or weekday(value) = 6`");
	_ObjectCallMethod( items , "AddBar", h,"Task","7/14/2009 1:00:00 AM","7/14/2009 6:00:00 AM");
_ObjectCallMethod( g2antt , "EndUpdate");

963
I am programmatically select a date using the Chart.SelectDate property, but can't see why the date is not highlighted. What am I doing wrong
OBJECT chart,g2antt;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "SelectLevel", 1);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.SelectDate(#1/4/2001#) = True");

962
How do I show a shorter line in the chart's level

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "GridLineColor", 8421504);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "DrawLevelSeparator", 0);
	_ObjectSetProperty( chart , "UnitWidth", 24);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Alignment", 1);
		_ObjectSetProperty( level , "Label", "<%dddd%>");
		_ObjectSetProperty( level , "DrawTickLines", 18);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "Count", 6);
		_ObjectSetProperty( level , "DrawTickLines", 578);
		_ObjectCallMethod( level , "DrawTickLinesFrom", 0,34);
_ObjectCallMethod( g2antt , "EndUpdate");

961
How do I replicate the screen shot http://www.exontrol.com/images/exg2antt9.jpg

OBJECT appearance,bar,chart,column,columns,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
	_ObjectCallMethod( appearance , "Add", 1,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headdark.ebn");
	_ObjectCallMethod( appearance , "Add", 2,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\xpbsel.ebn");
	_ObjectCallMethod( appearance , "Add", 3,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headligh.ebn");
	_ObjectCallMethod( appearance , "Add", 4,"CP:1 0 0 1 1");
_ObjectSetProperty( g2antt , "BackColorHeader", 67108864);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "BackColorLevelHeader", 67108864);
_ObjectSetProperty( g2antt , "SelBackColor", 33554687);
_ObjectSetProperty( g2antt , "GridLineColor", 8421504);
_ObjectSetProperty( g2antt , "HeaderHeight", 22);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "ScrollBySingleLine", 0);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 48);
columns = _ObjectGetProperty( g2antt , "Columns");
	column = _ObjectCallMethod( columns , "Add", "Group");
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
		_ObjectCallMethod(g2antt, "TemplatePut", column)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(4) = 50331648");
		_ObjectSetProperty( column , "LevelKey", 1);
	column = _ObjectCallMethod( columns , "Add", "Histogram");
		_ObjectSetProperty( column , "Width", 18);
		_ObjectSetProperty( column , "AllowSizing", 0);
		_ObjectSetProperty( column , "LevelKey", 1);
		_ObjectSetProperty( column , "Position", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/11/2009");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "DrawLevelSeparator", 0);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%mmmm%> <%yyyy%>");
		_ObjectSetProperty( level , "Unit", 16);
		_ObjectSetProperty( level , "Alignment", 1);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue)=1?value:''");
		_ObjectSetProperty( level , "DrawTickLines", 18);
		_ObjectCallMethod( level , "DrawTickLinesFrom", 0,2);
		_ObjectSetProperty( level , "Alignment", 1);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "Color", 33554432);
		_ObjectSetProperty( bar , "Height", 18);
		_ObjectSetProperty( bar , "OverlaidType", 515);
		_ObjectSetProperty( bar , "HistogramColor", 16777216);
		_ObjectSetProperty( bar , "HistogramType", 1);
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 48);
	_ObjectSetProperty( chart , "HistogramView", 4);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Group <b>A</b>");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","6/12/2009","6/19/2009","K1","Requirements");
	_ObjectCallMethod( items , "AddBar", h,"Task","6/13/2009","6/21/2009","K2","Sales & Marketing");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,33) = 255");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,33) = 255");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	h = _ObjectCallMethod( items , "AddItem", "Group <b>B</b>");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","6/14/2009","6/23/2009","K1","<b>GUI</b> Design");
	_ObjectCallMethod( items , "AddBar", h,"Task","6/18/2009","6/25/2009","K2","Class Design");
	h = _ObjectCallMethod( items , "AddItem", "Group <b>C</b>");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","6/12/2009","6/19/2009","K1","<b>GUI</b> Coding");
	_ObjectCallMethod( items , "AddBar", h,"Task","6/13/2009","6/25/2009","K2","Design & Concept");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,33) = 65280");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,33) = 65280");
_ObjectCallMethod( g2antt , "EndUpdate");

960
How can I remove all bars from the chart
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod( items , "ClearBars", 0);

959
How can I change the color for all bars with a specified key
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`K1`,33) = 255");

958
Is there any automatic way to change a property for all bars with a specified key
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`K1`,33) = 255");

957
How can I remove all bars with specified key
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod( items , "RemoveBar", 0,"K1");

956
How do I several bars with different vertical offsets

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Item");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(h) = 62");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","T1");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`T1`,18) = -23");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","T2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`T2`,18) = -11");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","T3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`T3`,18) = 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","T4");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`T4`,18) = 13");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","T5");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`T5`,18) = 25");

955
Is there any option to show gradient bars without using EBN technology

OBJECT bar,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Task`)");
	_ObjectSetProperty( bar , "Color", 255);
	_ObjectSetProperty( bar , "StartColor", 65280);
	_ObjectSetProperty( bar , "EndColor", 65535);
	_ObjectSetProperty( bar , "Pattern", 32);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");

954
How can I define a bar with border and solid filling

OBJECT bar,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Task`)");
	_ObjectSetProperty( bar , "Color", 255);
	_ObjectSetProperty( bar , "StartColor", 65535);
	_ObjectSetProperty( bar , "EndColor", 65535);
	_ObjectSetProperty( bar , "Pattern", 32);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");

953
How can I define a bar with border and solid filling

OBJECT bar,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Task`)");
	_ObjectSetProperty( bar , "Color", 255);
	_ObjectSetProperty( bar , "Pattern", 32);
	_ObjectSetProperty( bar , "Height", 18);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,7) = 65535");

952
How do I define a bar with solid border and filling

OBJECT bar,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackboxt.ebn");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Task`)");
	_ObjectSetProperty( bar , "Color", 16777216);
	_ObjectSetProperty( bar , "Height", 18);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 255");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,7) = 65535");

951
Can I control the units/resource/effort being allocated to a bar when displaying OverAllocation histogram

OBJECT bar,chart,column,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Effort");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
	_ObjectCallMethod(g2antt, "TemplatePut", column)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 21");
	_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 202);
	_ObjectSetProperty( chart , "HistogramView", 112);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 2050);
		_ObjectSetProperty( bar , "HistogramType", 1);
		_ObjectSetProperty( bar , "HistogramCriticalValue", 50);
		_ObjectSetProperty( bar , "HistogramGridLinesColor", 12632256);
		_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/25/2005");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 2");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/24/2005","6/28/2005");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 1");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/27/2005","7/1/2005");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 2");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 4");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/30/2005","7/2/2005");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");

950
Can I control the units/resource/effort being allocated to a bar when displaying Overload histogram

OBJECT bar,chart,column,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Effort");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
	_ObjectCallMethod(g2antt, "TemplatePut", column)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 21");
	_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 128);
	_ObjectSetProperty( chart , "HistogramView", 112);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
		_ObjectSetProperty( bar , "HistogramType", 0);
		_ObjectSetProperty( bar , "HistogramCriticalValue", 3);
		_ObjectSetProperty( bar , "ShowHistogramValues", "value>3?255:1");
		_ObjectSetProperty( bar , "HistogramItems", -11);
		_ObjectSetProperty( bar , "HistogramGridLinesColor", 12632256);
		_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/23/2005");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 4");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/24/2005","6/26/2005");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 3");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/27/2005","6/29/2005");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 2");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 4");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/30/2005","7/2/2005");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");

949
How can I display double-lines curves in the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "AntiAliasing", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 512);
		_ObjectSetProperty( bar , "HistogramItems", 3);
		_ObjectSetProperty( bar , "HistogramBorderColor", 128);
		_ObjectSetProperty( bar , "HistogramColor", 255);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");

948
Is there any option to display values in the histogram using different colors

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 6);
		_ObjectSetProperty( bar , "HistogramItems", 6);
		_ObjectSetProperty( bar , "ShowHistogramValues", "value>1?255:65280");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/3/2001","1/7/2001");

947
Is there any option to display values in the histogram using different colors

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 6);
		_ObjectSetProperty( bar , "HistogramItems", 6);
		_ObjectSetProperty( bar , "ShowHistogramValues", "value>1?255:1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/3/2001","1/7/2001");

946
How can I display only few values in the histogram, such as the values greater than a value

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 6);
		_ObjectSetProperty( bar , "ShowHistogramValues", "value>1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/3/2001","1/7/2001");

945
How can I display values in the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 6);
		_ObjectSetProperty( bar , "ShowHistogramValues", "1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/3/2001","1/7/2001");

944
How can I scroll the chart to find a bar
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(0) = 64");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 32);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001",1);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/2/2001","1/4/2001",2);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/2/2001","1/4/2001",3);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 4"),"Task","1/2/2001","1/4/2001",4);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 5"),"Task","1/2/2001","1/4/2001",5);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 6"),"Task","1/2/2001","1/4/2001",6);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 7"),"Task","1/2/2001","1/4/2001",7);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 8"),"Task","1/2/2001","1/4/2001",8);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 9"),"Task","1/2/2001","1/4/2001",8);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 10"),"Task","1/2/2001","1/4/2001",10);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 11"),"Task","1/2/2001","1/4/2001",11);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 12"),"Task","1/2/2001","1/4/2001",12);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 13"),"Task","1/2/2001","1/4/2001",13);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 14"),"Task","1/2/2001","1/4/2001",14);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.FindBar(14)");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "EnsureVisibleItem", h);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim h")
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Chart") , "ScrollTo", _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Items.ItemBar(h,14,1)"),1);

943
Can I change the color/marker/frame for selected bars

OBJECT appearance,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
	_ObjectCallMethod( appearance , "Add", 2,"c:\exontrol\images\normal.ebn");
	_ObjectCallMethod( appearance , "Add", 1,"CP:2 3 2 -3 -2");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2002");
	_ObjectSetProperty( chart , "SelBarColor", 16777216);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2002","1/4/2002","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/6/2002","1/10/2002","B");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/11/2002","1/14/2002","C");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,257) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");

942
Can I display a larger marker for selected bars, eventually using the EBN technology

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2002");
	_ObjectSetProperty( chart , "SelBarColor", 16777216);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2002","1/4/2002","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/6/2002","1/10/2002","B");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/11/2002","1/14/2002","C");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,257) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");

941
How do I change the color for the selected bars

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "Debug", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2002");
	_ObjectSetProperty( chart , "SelBarColor", 255);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2002","1/4/2002","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/6/2002","1/10/2002","B");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/11/2002","1/14/2002","C");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,257) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");

940
How can I change the background color for child bars of a summary bar

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "HasLines", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "AllowCreateBar", 0);
	_ObjectSetProperty( chart , "AllowLinkBars", 0);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 112");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
items = _ObjectGetProperty( g2antt , "Items");
	hR1 = _ObjectCallMethod( items , "AddItem", "Team 1");
	_ObjectCallMethod( items , "AddBar", hR1,"Summary","1/2/2008","1/8/2008","");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hR1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", hR1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(hR1,``,34) = 12895428");
	h1 = _ObjectCallMethod( items , "InsertItem", hR1,"","Member 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2008","1/7/2008");
	_ObjectCallMethod( items , "DefineSummaryBars", hR1,"",h1,"");
	h1 = _ObjectCallMethod( items , "InsertItem", hR1,"","Member 2");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/4/2008","1/9/2008");
	_ObjectCallMethod( items , "DefineSummaryBars", hR1,"",h1,"");
	h1 = _ObjectCallMethod( items , "InsertItem", hR1,"","Member 3");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/5/2008","1/10/2008");
	_ObjectCallMethod( items , "DefineSummaryBars", hR1,"",h1,"");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(hR1) = True");
_ObjectCallMethod( g2antt , "EndUpdate");

939
How can I allow resizing the bar only in the right part of the bar
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,10) = 2");

938
How can I allow resizing the bar only in the left part of the bar
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,10) = 1");

937
How can I show the links that starts from selected bar being more visible, while the rest being transparent

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ShowLinksWidth(1) = 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ShowLinksStyle(1) = 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ShowLinksColor(2) = 13158600");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ShowLinksColor(4) = 13158600");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/23/2006");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","9/25/2006","9/27/2006");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h2)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h2,``,257) = True");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `L1`");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","9/29/2006","10/2/2006");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"",h3,"");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `L2`");
_ObjectCallMethod( g2antt , "EndUpdate");

936
How can I show only the links that starts from selected bar

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End") , "Visible", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ShowLinksColor(2) = BackColor");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ShowLinksColor(4) = BackColor");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = #9/21/2006#");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2) = #9/24/2006#");
	_ObjectCallMethod( items , "AddBar", h1,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2)"));
	h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h2)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1) = #9/25/2006#");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2) = #9/28/2006#");
	_ObjectCallMethod( items , "AddBar", h2,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2)"));
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h2,``,257) = True");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
	h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h3")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h3)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1) = #9/29/2006#");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2) = #10/2/2006#");
	_ObjectCallMethod( items , "AddBar", h3,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2)"));
	_ObjectCallMethod( items , "AddLink", "L2",h2,"",h3,"");
_ObjectCallMethod( g2antt , "EndUpdate");

935
How can I hide links that are not related to selected bar

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End") , "Visible", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ShowLinksColor(4) = BackColor");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = #9/21/2006#");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2) = #9/24/2006#");
	_ObjectCallMethod( items , "AddBar", h1,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2)"));
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,257) = True");
	h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h2)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1) = #9/25/2006#");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2) = #9/28/2006#");
	_ObjectCallMethod( items , "AddBar", h2,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2)"));
	_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
	h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h3")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h3)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1) = #9/29/2006#");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2) = #10/2/2006#");
	_ObjectCallMethod( items , "AddBar", h3,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2)"));
	_ObjectCallMethod( items , "AddLink", "L2",h2,"",h3,"");
_ObjectCallMethod( g2antt , "EndUpdate");

934
How can I show the direction of the link using EBN files

OBJECT appearance,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
	_ObjectCallMethod( appearance , "Add", 1,"c:\exontrol\images\normal.ebn");
	_ObjectCallMethod( appearance , "Add", 2,"CP:1 -1 -1 1 1");
	_ObjectCallMethod( appearance , "Add", 3,"CP:1 -2 -2 2 2");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","B1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/13/2001","B2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"B1",h2,"B2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,14) = 16777216");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/13/2001","B3");
	_ObjectCallMethod( items , "AddLink", "L2",h1,"B1",h2,"B3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,14) = 33554432");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 4");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/13/2001","B5");
	_ObjectCallMethod( items , "AddLink", "L3",h1,"B1",h2,"B5");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L3`,14) = 50331648");
_ObjectCallMethod( g2antt , "EndUpdate");

933
How can I show round links

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001","B1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/5/2001","1/13/2001","B2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod( items , "AddLink", "L1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FindItem(`Item 1`,0)"),"B1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FindItem(`Item 2`,0)"),"B2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,15) = True");

932
How can I change the color to display the arrow of the link

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001","B1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/6/2001","1/14/2001","B2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod( items , "AddLink", "L1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FindItem(`Item 1`,0)"),"B1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FindItem(`Item 2`,0)"),"B2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,14) = 255");

931
I use UnitScale: exHour and I want to show only from 9 to 18 hour. The idea is to show only the working part of a day. Is this possible

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
	_ObjectSetProperty( chart , "BackColorLevelHeader", 16777215);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<b><%dddd%></b> <%d%>");
		_ObjectSetProperty( level , "Alignment", 1);
		_ObjectSetProperty( level , "DrawTickLines", 0);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "DrawTickLines", 65);
		_ObjectCallMethod( level , "DrawTickLinesFrom", 0,1);
	_ObjectSetProperty( chart , "NonworkingHours", 16253439);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
_ObjectCallMethod( g2antt , "EndUpdate");

930
Can I display tick lines from other level to my base level so time units gets separated more clearly

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "DrawLevelSeparator", 0);
	_ObjectSetProperty( chart , "UnitWidth", 24);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Alignment", 1);
		_ObjectSetProperty( level , "Label", "<%dddd%>");
		_ObjectSetProperty( level , "DrawTickLines", 18);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "Count", 6);
		_ObjectSetProperty( level , "DrawTickLines", 66);
		_ObjectCallMethod( level , "DrawTickLinesFrom", 0,2);
_ObjectCallMethod( g2antt , "EndUpdate");

929
Is there any property to change the style of the tick lines being shown in the chart

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "UnitWidth", 24);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Alignment", 1);
		_ObjectSetProperty( level , "Label", "<%dddd%>");
		_ObjectSetProperty( level , "DrawTickLines", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "Count", 6);
		_ObjectSetProperty( level , "DrawTickLines", 34);
	_ObjectSetProperty( chart , "DrawLevelSeparator", 2);
_ObjectCallMethod( g2antt , "EndUpdate");

928
Is there any property to change the style of the tick lines being shown in the chart

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "DrawLevelSeparator", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%dddd%>");
		_ObjectSetProperty( level , "DrawTickLines", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "Count", 6);
		_ObjectSetProperty( level , "DrawTickLines", 2);
_ObjectCallMethod( g2antt , "EndUpdate");

927
How can I show the levels based on the base level so tick lines aligns better

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "AdjustLevelsToBase", -1);
	_ObjectSetProperty( chart , "UnitWidth", 24);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `<%dddd%>`");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "Count", 5);
_ObjectCallMethod( g2antt , "EndUpdate");

926
How can I show only working hours in other words only the working part of the day

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "AllowSelectDate", 0);
	_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<b><%dddd%></b> <%d%>");
		_ObjectSetProperty( level , "Alignment", 1);
		_ObjectSetProperty( level , "DrawTickLines", 0);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim levObj")
		_ObjectCallMethod(g2antt, "TemplatePut", level)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`09`) = `<fgcolor=FF0000><b><font ;10>9</font></b></fgcolor>`");
	_ObjectSetProperty( chart , "NonworkingHours", 16253439);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
_ObjectCallMethod( g2antt , "EndUpdate");

925
How can I specify the effort for bars when displaying the overload histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 52");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	_ObjectSetProperty( chart , "HistogramView", 112);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
		_ObjectSetProperty( bar , "HistogramType", 0);
		_ObjectSetProperty( bar , "HistogramItems", -6);
		_ObjectSetProperty( bar , "HistogramGridLinesColor", 12632256);
		_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/23/2005","","4");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,21) = 4");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/24/2005","6/26/2005","",3);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,21) = 3");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/27/2005","6/29/2005","",2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,21) = 2");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 4");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/30/2005","7/2/2005","",1);
_ObjectCallMethod( g2antt , "EndUpdate");

924
How can I display the cumulative histogram and showing the bars that generated it using different colors

OBJECT bar,chart,column,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 128");
	_ObjectSetProperty( chart , "HistogramView", 1300);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 1);
		_ObjectSetProperty( bar , "HistogramType", 256);
		_ObjectSetProperty( bar , "HistogramCumulativeOriginalColorBars", 0);
		_ObjectSetProperty( bar , "HistogramItems", 6);
		_ObjectSetProperty( bar , "HistogramRulerLinesColor", 128);
		_ObjectSetProperty( bar , "HistogramBorderColor", 1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
	_ObjectCallMethod(g2antt, "TemplatePut", column)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
	_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Project 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/3/2001","1/5/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 3"),"Task","1/4/2001","1/6/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 4"),"Task","1/2/2001","1/8/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(1),0) = 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");

923
How can I show the cumulative histogram for my bar

OBJECT bar,chart,column,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 128");
	_ObjectSetProperty( chart , "HistogramView", 1300);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 1);
		_ObjectSetProperty( bar , "HistogramType", 256);
		_ObjectSetProperty( bar , "HistogramItems", 6);
		_ObjectSetProperty( bar , "HistogramRulerLinesColor", 128);
		_ObjectSetProperty( bar , "HistogramBorderColor", 1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
	_ObjectCallMethod(g2antt, "TemplatePut", column)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
	_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Project 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/3/2001","1/5/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 3"),"Task","1/4/2001","1/6/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 4"),"Task","1/2/2001","1/8/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(1),0) = 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");

922
How can I show some grid lines or ruler in the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 78");
	_ObjectSetProperty( chart , "HistogramView", 1300);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 6);
		_ObjectSetProperty( bar , "HistogramItems", 6);
		_ObjectSetProperty( bar , "HistogramRulerLinesColor", 128);
		_ObjectSetProperty( bar , "HistogramGridLinesColor", 255);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Project 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/3/2001","1/5/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");

921
Is there any property to show some grid lines in the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 78");
	_ObjectSetProperty( chart , "HistogramView", 1300);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 6);
		_ObjectSetProperty( bar , "HistogramItems", 6);
		_ObjectSetProperty( bar , "HistogramGridLinesColor", 255);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Project 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/3/2001","1/5/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");

920
How can I specify a fixed number of bars/items being shown in the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 78");
	_ObjectSetProperty( chart , "HistogramView", 1300);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 6);
		_ObjectSetProperty( bar , "HistogramCriticalValue", 3);
		_ObjectSetProperty( bar , "HistogramItems", -6);
		_ObjectSetProperty( bar , "HistogramRulerLinesColor", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Project 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/3/2001","1/5/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	h = _ObjectCallMethod( items , "AddItem", "Project 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/4/2001","1/7/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/6/2001","1/8/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	h = _ObjectCallMethod( items , "AddItem", "Project 3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/3/2001","1/5/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	h = _ObjectCallMethod( items , "AddItem", "Project 4");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/4/2001","1/7/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/6/2001","1/8/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");

919
Is there any option to specify a minimum number of bars/items displayed in the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 78");
	_ObjectSetProperty( chart , "HistogramView", 1300);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 6);
		_ObjectSetProperty( bar , "HistogramItems", 6);
		_ObjectSetProperty( bar , "HistogramGridLinesColor", 1);
		_ObjectSetProperty( bar , "HistogramRulerLinesColor", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Project 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/3/2001","1/5/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	h = _ObjectCallMethod( items , "AddItem", "Project 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/4/2001","1/7/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/6/2001","1/8/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");

918
How can I show the histogram without grouping the bars based on their parents

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	_ObjectSetProperty( chart , "HistogramView", 1300);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Project 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/3/2001","1/5/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	h = _ObjectCallMethod( items , "AddItem", "Project 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/4/2001","1/7/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/6/2001","1/8/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");

917
How can I show the histogram for checked item and all recursively child items

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 128);
	_ObjectSetProperty( chart , "HistogramView", 788);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Project");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/3/2001","1/5/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	h = _ObjectCallMethod( items , "InsertItem", h,"","SubProject");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/3/2001","1/7/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/5/2001","1/8/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");

916
How can I show the histogram for checked item and its child items

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	_ObjectSetProperty( chart , "HistogramView", 276);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Project");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "InsertItem", h,"","Item 2"),"Task","1/3/2001","1/7/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");

915
How can I show the histogram for all items

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	_ObjectSetProperty( chart , "HistogramView", 112);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
_ObjectCallMethod( g2antt , "EndUpdate");

914
How can I prevent selecting a new item when clicking the chart area so my selection is shown in the histogram

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "SingleSel", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "SelectOnClick", 0);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	_ObjectSetProperty( chart , "HistogramView", 2);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(0)) = True");

913
How can I show bars in the histogram for selected items only

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "SingleSel", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	_ObjectSetProperty( chart , "HistogramView", 2);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(0)) = True");

912
How can I change the color and size for the curve in the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 68);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 258);
		_ObjectSetProperty( bar , "HistogramBorderColor", 65280);
		_ObjectSetProperty( bar , "HistogramBorderSize", 5);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/25/2005",1,1);
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/23/2005","6/28/2005",2,2);
_ObjectCallMethod( g2antt , "EndUpdate");

911
How can I change the color for the frame in the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 68);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 259);
		_ObjectSetProperty( bar , "HistogramItems", 5);
		_ObjectSetProperty( bar , "HistogramBorderColor", 255);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/25/2005",1,1);
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/23/2005","6/28/2005",2,2);
_ObjectCallMethod( g2antt , "EndUpdate");

910
How can I force the histogram for a bar being shown all the time

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Tasks`).Def(0) = True");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 68);
	_ObjectSetProperty( chart , "HistogramView", 20);
	bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","H");
		_ObjectSetProperty( bar , "Color", 65280);
		_ObjectSetProperty( bar , "HistogramPattern", 256);
		_ObjectSetProperty( bar , "HistogramItems", 5);
		_ObjectSetProperty( bar , "HistogramColor", _ObjectGetProperty( bar , "Color"));
		_ObjectSetProperty( bar , "HistogramGridLinesColor", 8421504);
		_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramCriticalColor", 8388608);
		_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
		_ObjectSetProperty( bar , "HistogramItems", 5);
		_ObjectSetProperty( bar , "HistogramGridLinesColor", 8421504);
		_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Hidden");
	_ObjectCallMethod( items , "AddBar", h1,"H","6/23/2005","6/28/2005",1);
	_ObjectCallMethod( items , "AddBar", h1,"H","6/24/2005","6/26/2005",2);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h1,0) = 1");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(h1) = 0");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectableItem(h1) = False");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/25/2005",1);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h1,0) = 1");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h1,0) = 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/24/2005","7/1/2005",1);
_ObjectCallMethod( g2antt , "EndUpdate");

909
How can I remove a bar type from the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramCriticalColor", 8388608);
		_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
	bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","Green");
		_ObjectSetProperty( bar , "Color", 65280);
		_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Green","6/22/2005","6/26/2005",0);
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/25/2005",1);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,1,18) = 3");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h1,"Green","6/28/2005","6/30/2005",0);
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/27/2005","7/1/2005",1);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,1,18) = 3");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Green`)");
	_ObjectSetProperty( bar , "HistogramColor", _ObjectGetProperty( bar , "Color"));
	_ObjectSetProperty( bar , "HistogramPattern", 0);
_ObjectCallMethod( g2antt , "EndUpdate");

908
How can I show the two buttons in the vertical splitter but still resizes the chart when the control gets resized

OBJECT g2antt;

g2antt =  ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "OnResizeControl", 513);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "LevelCount", 2);

907
I have seen a screen shot on your web page that shows two buttons on the vertical scroll bar. How can I show them
OBJECT g2antt;

g2antt =  ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "OnResizeControl", 512);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 96");

906
How can I disable selecting a new item once the user clicks the chart area

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( g2antt , "SingleSel", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "SelectOnClick", 0);
	_ObjectSetProperty( chart , "AllowCreateBar", 1);
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	_ObjectSetProperty( chart , "HistogramView", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 1");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/22/2005","6/26/2005",0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h1) = True");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/24/2005","6/30/2005",0);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h1) = True");
_ObjectCallMethod( g2antt , "EndUpdate");

905
Is there any option to display the chart's header in the bottom side of the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramView", 112);
	_ObjectSetProperty( chart , "HistogramHeight", 96);
	_ObjectSetProperty( chart , "HistogramHeaderVisible", -1);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "Color", 16711680);
		_ObjectSetProperty( bar , "OverlaidType", 1);
		_ObjectSetProperty( bar , "OverlaidGroup", "Task2");
		_ObjectSetProperty( bar , "HistogramCriticalColor", 8388608);
		_ObjectSetProperty( bar , "HistogramPattern", 512);
		_ObjectSetProperty( bar , "HistogramType", 1);
	bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","Task2");
		_ObjectSetProperty( bar , "Color", 65280);
		_ObjectSetProperty( bar , "OverlaidType", 1);
		_ObjectSetProperty( bar , "OverlaidGroup", "Task");
		_ObjectSetProperty( bar , "HistogramCriticalColor", 32768);
		_ObjectSetProperty( bar , "HistogramPattern", 512);
		_ObjectSetProperty( bar , "HistogramType", 1);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task2","6/22/2005","6/26/2005",0);
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/25/2005",1);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,0,21) = 3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,1,21) = 4");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h1,"Task2","6/28/2005","6/30/2005",0);
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/27/2005","7/1/2005",1);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,0,21) = 4");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,1,21) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");

904
How can I display the child bars as soon as an item gets collapsed

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
	_ObjectSetProperty( chart , "ShowCollapsedBars", -1);
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Project 1");
	h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/23/2006","A");
	h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","9/24/2006","9/26/2006","B");
	h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","9/27/2006","9/29/2006","C");
	h = _ObjectCallMethod( items , "AddItem", "Project 2");
	h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/23/2006","A");
	h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","9/24/2006","9/26/2006","B");
	h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","9/27/2006","9/29/2006","C");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");

903
What exBarEffort property represents

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/9/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramView", 112);
	_ObjectSetProperty( chart , "HistogramHeight", 164);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramPattern", 256);
		_ObjectSetProperty( bar , "HistogramType", 1);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/10/2005","6/11/2005","","1/1=<b>100%");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,,4) = 18");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/12/2005","6/14/2005","","1/2=<b>50%");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,,4) = 18");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/15/2005","6/18/2005","","1/3=<b>33%");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,,4) = 18");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 4");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/19/2005","6/23/2005","","1/4=<b>25%");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,,4) = 18");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 5");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/24/2005","6/29/2005","","1/5=<b>20%");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,,4) = 18");
_ObjectCallMethod( g2antt , "EndUpdate");

902
Can I display multiple curves in the histogram

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramView", 112);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "Color", 16711680);
		_ObjectSetProperty( bar , "OverlaidType", 1);
		_ObjectSetProperty( bar , "OverlaidGroup", "Task2");
		_ObjectSetProperty( bar , "HistogramCriticalColor", 8388608);
		_ObjectSetProperty( bar , "HistogramPattern", 512);
		_ObjectSetProperty( bar , "HistogramType", 1);
	bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","Task2");
		_ObjectSetProperty( bar , "Color", 65280);
		_ObjectSetProperty( bar , "OverlaidType", 1);
		_ObjectSetProperty( bar , "OverlaidGroup", "Task");
		_ObjectSetProperty( bar , "HistogramCriticalColor", 32768);
		_ObjectSetProperty( bar , "HistogramPattern", 512);
		_ObjectSetProperty( bar , "HistogramType", 1);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task2","6/22/2005","6/26/2005",0);
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/25/2005",1);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,0,21) = 3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,1,21) = 4");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h1,"Task2","6/28/2005","6/30/2005",0);
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/27/2005","7/1/2005",1);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,0,21) = 4");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,1,21) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");

901
How can I use the exBarEffort property

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	_ObjectSetProperty( chart , "HistogramView", 112);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "HistogramCriticalColor", 255);
		_ObjectSetProperty( bar , "HistogramPattern", 512);
		_ObjectSetProperty( bar , "HistogramType", 1);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/25/2005");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,21) = 4");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h1,"Task","6/27/2005","7/1/2005");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,21) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");